COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		MOVE T,TOPWIN		Line number of line at the top
C00004 ENDMK
C⊗;
	MOVE T,TOPWIN		;Line number of line at the top
	MOVEI C,1		;To make into ASCID
	MOVEI A,[440700,,C]
	PUSHJ P,NUMSTR
	MOVEM C,HEDLIN
	MOVE T,BOTWIN		;Line number of line at bottom
	MOVEI C,1
	MOVE A,[440700,,C]
	PUSHJ P,NUMSTR
	MOVEM C,BOTLN2		;On both asterisk
	MOVEM C,BOTLN3		;and dash bottoms
	MOVE T,LINES
	CAMN T,BOTWIN
	POPJ P,			;No need for two numbers if both the same
	MOVEI C,1
	MOVE A,[440700,,C]
	PUSHJ P,NUMSTR
	MOVEM C,BOTLN4		;Both numbers needed for dash bottom line
	POPJ P,


	MOVE T,(A)		;Start with the page number
	MOVEI C,1		;To make into ASCID
	MOVE A,[440700,,C]
	PUSHJ  P,NUMSTR
	MOVEM C,HEDPAG		;Put it on asterisk heading line
	MOVEM C,HED2PG		;and also on dash heading line
	MOVE T,PAGES		;Are we on the last page?
	CAMN T,FIRPAG		;If we are use the word LAST
	JRST [MOVE T,[ASCID/LAST/]
	MOVEM T,BOTPG2
	MOVEM C,BOTPG3
	JRST RDSPA2
]
	MOVEM C,BOTPG2		;We are not so deposit the line number
	MOVEM C,BOTPG3		;on both asterisk and dash bottom lines
	MOVEI C,1
	MOVE A,[440700,,C]
	PUSHJ P,NUMSTR
RDSPA2:	MOVEM C,BOTPG4		;Deposit the total line count
	MOVEM C,BOTPG5		;on both types of bottom line